home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / Pascal / Applications / P4⁄Mac 2.0d4 / Mac source 2.0 / Messages.p < prev    next >
Encoding:
Text File  |  1996-09-23  |  1015 b   |  52 lines  |  [TEXT/PJMM]
  1. unit Messages;
  2.  
  3. interface
  4.     uses
  5. {$IFC UNDEFINED THINK_PASCAL}
  6.         MacIntf,
  7. {$ENDC}
  8.         TransEdit, TransDisplay, TransSkel;
  9.  
  10.     var
  11.         messagesWind: WindowPtr; {Initialized from the main program}
  12.  
  13.     procedure WriteMessage (msg: Str255);
  14.     procedure WriteLnMessage;
  15.     procedure WriteMessageLine (msg: Str255);
  16.  
  17. implementation
  18.  
  19.     var
  20.         messageBuffer: Str255;
  21.  
  22.     procedure WriteMessage (msg: Str255);
  23.     begin
  24.         if Length(messageBuffer) + Length(msg) < 255 then
  25.             messageBuffer := ConCat(messageBuffer, msg)
  26.         else
  27.             begin
  28.                 ShowWindow(messagesWind);
  29.                 SelectWindow(messagesWind);
  30.                 DisplayString(messageBuffer);
  31.                 messageBuffer := msg;
  32.             end;
  33.     end;
  34.  
  35.     procedure WriteLnMessage;
  36.     begin
  37.         ShowWindow(messagesWind);
  38.         SelectWindow(messagesWind);
  39.         SetDWindow(messagesWind);
  40.         messageBuffer := ConCat(messageBuffer, Char(13));
  41.         DisplayString(messageBuffer);
  42.         messageBuffer := '';
  43.     end; {WriteLnMessage}
  44.  
  45.     procedure WriteMessageLine (msg: Str255);
  46.     begin
  47.         WriteMessage(msg);
  48.         WriteLnMessage;
  49.     end; {WriteMessageLine}
  50.  
  51.  
  52. end.